home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / Folders.mod < prev    next >
Encoding:
Text File  |  1995-08-07  |  2.8 KB  |  80 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        Folders.mod
  3.  
  4.      Contains:    Folder Manager Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$IF UNDEFINED SystemSevenFiveOrLater *)
  21.   (*$SET SystemSevenFiveOrLater FALSE*)
  22. (*$END*)
  23. (*$IF UNDEFINED SystemSevenOrLater *)
  24.   (*$IF GENERATINGCFM *)
  25.     (*$SET SystemSevenOrLater TRUE*)
  26.   (*$ELSE*)
  27.     (*$SET SystemSevenOrLater SystemSevenFiveOrLater*)
  28.   (*$END*)
  29. (*$END*)
  30. (*$IF UNDEFINED SystemSixOrLater *)
  31.   (*$SET SystemSixOrLater SystemSevenOrLater*)
  32. (*$END*)
  33. (*$TAGS-*)
  34. (*$CALLING PASCAL*)
  35. MODULE Folders;
  36.  
  37. IMPORT SYSTEM, Types;
  38.  
  39. (* $PUSH*)
  40. (* $ALIGN MAC68K*)
  41. (* $LibExport+*)
  42.  
  43. CONST
  44.     kOnSystemDisk*                = $8000;
  45.     kCreateFolder*                = TRUE;
  46.     kDontCreateFolder*            = FALSE;
  47.     kSystemFolderType*            = LONG("macs");                        (* the system folder *)
  48.     kDesktopFolderType*            = LONG("desk");                        (* the desktop folder; objects in this folder show on the desk top. *)
  49.     kTrashFolderType*            = LONG("trsh");                        (* the trash folder; objects in this folder show up in the trash *)
  50.     kWhereToEmptyTrashFolderType* = LONG("empt");                        (* the "empty trash" folder; Finder starts empty from here down *)
  51.     kPrintMonitorDocsFolderType*    = LONG("prnt");                        (* Print Monitor documents *)
  52.     kStartupFolderType*            = LONG("strt");                        (* Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here *)
  53.     kAppleMenuFolderType*        = LONG("amnu");                        (* Finder objects to put into the Apple menu go here *)
  54.     kControlPanelFolderType*        = LONG("ctrl");                        (* Control Panels go here (may contain INITs) *)
  55.     kExtensionFolderType*        = LONG("extn");                        (* Finder extensions go here *)
  56.     kFontsFolderType*            = LONG("font");                        (* Fonts go here *)
  57.     kPreferencesFolderType*        = LONG("pref");                        (* preferences for applications go here *)
  58.     kTemporaryFolderType*        = LONG("temp");
  59.  
  60. (*$IF SystemSevenOrLater *)
  61.  
  62. PROCEDURE FindFolder*(vRefNum: INTEGER; folderType: Types.OSType; createFolder: BOOLEAN; VAR foundVRefNum: INTEGER; VAR foundDirID: LONGINT): Types.OSErr;
  63.     (*$IF NOT GENERATINGCFM*)
  64.     INLINE PASCAL $7000, $A823;
  65.     (*$END*)
  66. (*$ELSE*)
  67.  
  68. PROCEDURE FindFolder*(vRefNum: INTEGER; folderType: Types.OSType; createFolder: BOOLEAN; VAR foundVRefNum: INTEGER; VAR foundDirID: LONGINT): Types.OSErr;
  69.     EXTERNAL PASCAL;
  70. (*$END*)
  71. PROCEDURE ReleaseFolder*(vRefNum: INTEGER; folderType: Types.OSType): Types.OSErr;
  72.     (*$IF NOT GENERATINGCFM*)
  73.     INLINE PASCAL $700B, $A823;
  74.     (*$END*)
  75.  
  76. (* $ALIGN RESET*)
  77. (* $POP*)
  78.  
  79.  END Folders.
  80.